home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / kxc / towns_os / tugi / sample.tug < prev    next >
Text File  |  1991-10-18  |  2KB  |  87 lines
  1. TUGi_macro( v1.0 ) /*  必ず一行目は TUGi_macro( v1.0 ) で初めて下さい。 */
  2. sample_01()
  3. {
  4.     Screen( 3 ) ;
  5.     CLS( 1 ) ;
  6.     wind_init() ;
  7.     wrtstr(
  8.         "  このマクロファイルの内容はどんな物かちょっとだけ"
  9.         "  見て戴きましょう。"
  10.         " ",
  11.         " ",
  12.         "　マウスをクリックして下さい。"
  13.     ) ;
  14.     paletteset() ;
  15.     mousewait() ;
  16.     wind_close() ;
  17.     Text_type(
  18.         SAMPLE.TUG
  19.     ) ;
  20.  
  21.     Screen( 3 ) ;
  22.     CLS( 1 ) ;
  23.     wind_init() ;
  24.     wrtstr(
  25.         "  では、グラフィックを見ていきましょう。"
  26.         "  グラフィックは、マウスを動かす事でスクロールし、",
  27.         "  左クリックで縮小、右クリックで拡大表示します。",
  28.         "  左右同時クリックで次のグラフィックに進めます。",
  29.         " ",
  30.         "　マウスをクリックして下さい。"
  31.     ) ;
  32.     paletteset() ;
  33.     mousewait() ;
  34.     wind_close() ;
  35.     Gscroll( 1 ) ;
  36.     Graph_View(
  37.         Q:\KXC\GRAPHICS\AKI\G3.TIF
  38.         Q:\KXC\GRAPHICS\BEAR\KAGAMI.TIF
  39.         Q:\KXC\GRAPHICS\BEAR\KAO.TIF
  40.         Q:\KXC\GRAPHICS\ERIAS\MAHOU.P25
  41.         Q:\KXC\GRAPHICS\KGB_YAMA\Y_KGB_1.P25
  42.         Q:\KXC\GRAPHICS\KGB_YAMA\Y_KGB_2.P25
  43.     );
  44.  
  45.     Screen( 3 ) ;
  46.     CLS( 1 ) ;
  47.     wind_init() ;
  48.     wrtstr(
  49.         "  では、グラフィックを見ていきましょう。"
  50.         "  今度は、マウスの操作は無しです。"
  51.         " ",
  52.         "　マウスをクリックして下さい。"
  53.     ) ;
  54.     paletteset() ;
  55.     mousewait() ;
  56.     wind_close() ;
  57.  
  58.     Gscroll( 0 ) ;
  59.     Graph_Wait( 0 ) ;
  60.     Graph_View(
  61.         Q:\KXC\EXTRA\CRXANM01\CRX_0000.TK3
  62.         Q:\KXC\EXTRA\CRXANM01\CRX_0001.TK3
  63.         Q:\KXC\EXTRA\CRXANM01\CRX_0002.TK3
  64.         Q:\KXC\EXTRA\CRXANM01\CRX_0003.TK3
  65.         Q:\KXC\EXTRA\CRXANM01\CRX_0004.TK3
  66.         Q:\KXC\EXTRA\CRXANM01\CRX_0005.TK3
  67.         Q:\KXC\EXTRA\CRXANM01\CRX_0006.TK3
  68.         Q:\KXC\EXTRA\CRXANM01\CRX_0007.TK3
  69.         Q:\KXC\EXTRA\CRXANM01\CRX_0008.TK3
  70.         Q:\KXC\EXTRA\CRXANM01\CRX_0009.TK3
  71.         q:\graphics\chihiro\shizuko.p16
  72.     );
  73.     Screen( 3 ) ;
  74.     Graph_DSP() ;
  75.     wind_init() ;
  76.     wrtstr(
  77.         "  これでおしまいで～～す。"
  78.         " ",
  79.         "  メニューに戻ります。",
  80.         " ",
  81.         "　マウスをクリックして下さい。"
  82.     ) ;
  83.     paletteset() ;
  84.     mousewait( ) ;
  85.     wind_close() ;
  86. }
  87.